home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / dviware / dvitovdu32 / src / pascal / tek4010vdu.h < prev    next >
Text File  |  1991-11-10  |  1KB  |  26 lines
  1. (* TEK4010VDU *)
  2.  
  3. VAR
  4.    maxy       : INTEGER;     (* TEK4010 vertical coordinates are in 0..maxy;
  5.                                 some VDUs may change default value of 779     *)
  6.    lineht     : INTEGER;     (* height in TEK4010 pixels of a text line;
  7.                                 some VDUs may change default value of 26      *)
  8.    dragdown   : INTEGER;     (* VIS500/550 VDUs can use this value to drag
  9.                                 Terse character baseline down to TeX ref pt   *)
  10.    havesentxy : BOOLEAN;     (* don't need to send all 4 bytes of address?    *)
  11.  
  12. PROCEDURE InitTEK4010VDU;                                  EXTERNAL;
  13. PROCEDURE SendXY (x, y : INTEGER);                         EXTERNAL;
  14. PROCEDURE TEK4010StartText;                                EXTERNAL;
  15. PROCEDURE TEK4010MoveToTextLine (line : INTEGER);          EXTERNAL;
  16. PROCEDURE TEK4010ClearScreen;                              EXTERNAL;
  17. PROCEDURE TEK4010StartGraphics;                            EXTERNAL;
  18. PROCEDURE TEK4010LoadFont (fontname : string;
  19.                            fontsize : INTEGER;
  20.                            mag, hscale, vscale : REAL);    EXTERNAL;
  21. PROCEDURE TEK4010ShowChar (screenh, screenv : INTEGER;
  22.                            ch : CHAR);                     EXTERNAL;
  23. PROCEDURE TEK4010ShowRectangle (screenh, screenv,
  24.                                 width, height : INTEGER;
  25.                                 ch : CHAR);                EXTERNAL;
  26.